home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / trek.arc / TREKINIT.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-03-24  |  10.8 KB  |  95 lines
  1. 1  ' *** UNIVERSITY OF TEXAS     S*U*P*E*R   S*T*A*R   T*R*E*K
  2. 2  ' *** MS-BASIC 1.1 VERSION    JUNE 1, 1983      Ver.Mod 1.0
  3. 10  '-------------------------------------------------------------------------'
  4. 11  '                        "Star Trek" The Game                             '
  5. 12  '                                 by                                      '
  6. 13  '                  David Matuszek and Paul Reynolds                       '
  7. 14  '                                                                         '
  8. 15  '                 Adapted from the Unversity of Texas                     '
  9. 16  '                       program Super Star Trek                           '
  10. 17  '               for the IBM-PC by Frank M. Ramaekers Jr.                  '
  11. 18  '                                                                         '
  12. 19  '      Permission  is  hereby granted for the  copying,  distribution,    '
  13. 20  '  modification  and use of this program and associated  documentation    '
  14. 21  '  for  recreational  purposes, provided that all  references  to  the    '
  15. 22  '  authors  are retained.  However, permission is not and will not  be    '
  16. 23  '  granted for the sale or promotional use of this program or  program    '
  17. 24  '  documentation,  or for use in any situation in which profit may  be    '
  18. 25  '  considered  an objective, since it is the desire of the authors  to    '
  19. 26  '  respect the copyrights of the originators of Star Trek.                '
  20. 27  '-------------------------------------------------------------------------'
  21. 28  '
  22. 29  ' Please send any sugestions or fixes to the following address
  23. 30  '
  24. 31  ' Frank M. Ramaekers Jr.
  25. 32  ' 4614 Arapahoe Tr.
  26. 33  ' Austin, Texas 78745
  27. 34  '
  28. 100  DEFINT A-Z
  29. 110  COMMON SP,FIN,D!,RK,RC,RB,RR!,RT!,KST,KB,KK,KC,G(),CX(),CY(),BX(),BY()
  30. 120  COMMON NS(),P(),UX,UY,RS,KR,RR,KS,CR,KP,Q(),KX(),KY(),KP!(),KA!(),KD!()
  31. 130  COMMON NK,NB,NR!,NC,NT!,NST,NE!,NSH!,NT,NL!,ND!,E!,S!,SU,C,T,S$
  32. 140  COMMON QX,QY,SX,SY,W!,WS!,L!,D!(),LN,S,P$,DS!,DR!,H!,T!,BX,BY,DF!
  33. 150  COMMON HK,KC,CS,NH,NKN,S(),F!(),GO,G1,A,JI,R,AD,DF!,SC,TX,TY,ND,PX,PY,O
  34. 160  COMMON LD,P,MN,NP,HE,HS,NZ,HR,CF,SN,CG,SB,SE,CP!,CT,DB,BAX,BAY,CR!(),DO,IN$
  35. 300  DEF FNR(X)=INT(RND(1)*X)+1
  36. 310  DEF FNE!(E!)=-E!*LOG(RND(1))
  37. 320  DIM G(8,8),NS(8,8),Q(10,10),S(8,8),F!(10)
  38. 330  DIM KX(20),KY(20),KP!(20),KD!(20),KA!(20),CR!(12)
  39. 390  KEY OFF:CLS:LOCATE ,,1:SCREEN 0:FOR I=7 TO 10:KEY I,"":NEXT I:KEY 1,"S"+CHR$(13):KEY 2,"L"+CHR$(13):KEY 3,"C"+CHR$(13):KEY 4,"M A ":KEY 5,"PHO"+CHR$(13):KEY 6,"PH"+CHR$(13)
  40. 391  ' COLOR 26
  41. 392  LOCATE ,,0:LS$=" Star Trek":RS$="The Game "
  42. 393  ILS=1:ILE=40-LEN(LS$):IRS=80-LEN(RS$):IRE=41
  43. 394  IF ILS>ILE THEN 395 ELSE LOCATE 1,ILS:PRINT LS$;:ILS=ILS+1
  44. 395  IF IRS<IRE THEN 396 ELSE LOCATE 1,IRS:PRINT RS$;:IRS=IRS-1
  45. 396  IF IRS>=IRE OR ILS<=ILE GOTO 394
  46. 397  COLOR 10:LOCATE 1,ILS-1,1:PRINT LS$" "RS$:PRINT
  47. 398  COLOR 7:RS$="PC Ver 1.0":LOCATE 1,80-LEN(RS$):PRINT RS$:PRINT
  48. 500  AD=0:G1=0:DO=0:DB=0
  49. 510  ' choose
  50. 540  LN=0:S=0
  51. 550  IF LEN(IN$)<>0 THEN GOTO 580
  52. 560  PRINT "Would you like a short, medium or long game ? ";:GOSUB 11000
  53. 580  GOSUB 10000
  54. 590  IF BDKEY$<>"A" THEN 560
  55. 600  L$=LEFT$(BDS$,1):IF L$="S" THEN LN=1 ELSE IF L$="M" THEN LN=2 ELSE IF L$="L" THEN LN=4 ELSE GOTO 560
  56. 610  IF LEN(IN$)<>0 THEN GOTO 640
  57. 620  PRINT "Are you a novice, fair, good, expert or emeritus ? ";:GOSUB 11000
  58. 640  GOSUB 10000
  59. 650  IF BDKEY$<>"A" THEN 620
  60. 660  S$=LEFT$(BDS$,1):IF S$="N" THEN S=1 ELSE IF S$="F" THEN S=2 ELSE IF S$="G" THEN S=3 ELSE IF LEN(BDS$)<2 THEN BEEP:GOTO 620 ELSE S$=LEFT$(BDS$,2):IF S$="EX" THEN S=4 ELSE IF S$="EM" THEN S=5 ELSE BEEP:GOTO 620
  61. 670  PRINT "Enter a secret password: ";:GOSUB 11000
  62. 680  P$=IN$
  63. 685  ' DEF SEG=&H40
  64. 690  ' I=PEEK(&H6C)
  65. 692  ' DEF SEG
  66. 695  ' RANDOMIZE I
  67. 696  V=RND(1)*RND(1)*1000 MOD 99.98 :RANDOMIZE V
  68. 700  ' generate initial values from input
  69. 710  IF P$="DEBUG" THEN DB=1
  70. 715  ND=14:DIM D!(ND):CT=0
  71. 720  DF!=0.5*S:RB=INT(RND(1)*3)+2:NB=RB
  72. 730  RB=INT(3*RND(1))+2:NB=RB
  73. 740  RR=INT((2+RND(1))*S)
  74. 750  NP=INT(RND(1)*6)+5
  75. 760  RR=INT((2+RND(1))*S)
  76. 770  RS=INT(S/3)
  77. 780  RT!=7*LN:NT!=RT!
  78. 790  RATE!=(S-2*RND(1)+1)*S*0.1+0.15
  79. 800  RK=INT(2*RATE!*NT!):NK=RK
  80. 810  NC=INT(S+0.0625*NK*RND(1))
  81. 820  IF NC>10 THEN NC=10
  82. 830  RC=NC
  83. 840  RR!=(NK+4*NC)*NT!:NR!=RR!
  84. 850  IF NK>50 THEN RB=NB+1:NB=RB
  85. 900  '
  86. 910  S$="Enterprise"
  87. 920  E!=5000:NE!=E!
  88. 930  S!=2500:NSH!=S!:SC=0:SU=0
  89. 940  L!=4:NL!=L!
  90. 950  QX=FNR(8):QY=FNR(8)
  91. 960  SX=FNR(10):SY=FNR(10)
  92. 970  T=10:NT=10
  93. 980  W!=5:WS!=25
  94. 990  FOR I=1 TO ND:D!(I)=0
  95.